qrr<-cbind(qrr1[,1],rep(0,nrow(qrr1)),rep(0,nrow(qrr1)))
for(i in 1:nrow(data.base)) {
if(data.base[i,"attack.decision"]>0) {
r<-min(1,data.base[i,"ransom"])
qrr[r,3]<-qrr[r,3]+1
ii<-ifelse(data.base[i,"attack.decision"]==1,data.base[i,"i_1"],data.base[i,"i_2"])
qrr[,2]<-qrr[,2]+(ii==1)*qrr1[,2]+(ii==0)*qrr0[,2]
}
}
dimnames(qrr)[[2]]<-c("r","model","data")
sum(qrr[,2])
sum(qrr[,3])
sum(data.base[,"acck.decision"]>0)
sum(data.base[,"attack.decision"]>0)
data.base[,"ransom"]
summary(data.base[,"ransom"])
qrr1<-qre.r(1,par.setting=par.setting,par.behavior=par.b)
qrr0<-qre.r(0,par.setting=par.setting,par.behavior=par.b)
qrr<-cbind(qrr1[,1],rep(0,nrow(qrr1)),rep(0,nrow(qrr1)))
for(i in 1:nrow(data.base)) {
if(data.base[i,"attack.decision"]>0) {
r<-min(1,data.base[i,"ransom"])
qrr[r,3]<-qrr[r,3]+1
if(r<1) browser()
if(r>100) browser()
ii<-ifelse(data.base[i,"attack.decision"]==1,data.base[i,"i_1"],data.base[i,"i_2"])
qrr[,2]<-qrr[,2]+(ii==1)*qrr1[,2]+(ii==0)*qrr0[,2]
}
}
dimnames(qrr)[[2]]<-c("r","model","data")
r
i
data.base[113,]
Quit
qrr1<-qre.r(1,par.setting=par.setting,par.behavior=par.b)
qrr0<-qre.r(0,par.setting=par.setting,par.behavior=par.b)
qrr<-cbind(qrr1[,1],rep(0,nrow(qrr1)),rep(0,nrow(qrr1)))
for(i in 1:nrow(data.base)) {
if(data.base[i,"attack.decision"]>0) {
r<-max(1,data.base[i,"ransom"])
qrr[r,3]<-qrr[r,3]+1
if(r<1) browser()
if(r>100) browser()
ii<-ifelse(data.base[i,"attack.decision"]==1,data.base[i,"i_1"],data.base[i,"i_2"])
qrr[,2]<-qrr[,2]+(ii==1)*qrr1[,2]+(ii==0)*qrr0[,2]
}
}
dimnames(qrr)[[2]]<-c("r","model","data")
sum(qrr[,3])
plot(qrr[,3])
plot(qrr[,2])
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
qrr.plot
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
qre.i[[1]]
pp.data
qre.i[[1]]
dim(qre.i[[1]])
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
inv.summary
qra
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
att.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
att.summary
sum(att.summary[,2])
sum(att.summary[,3])
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
pp.summary
copy(pp.summary)
copy(pp.summary,col.names=TRUE)
copy(att.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
copy(att.summary,col.names=TRUE)
copy(inv.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
copy(inv.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
copy(pp.summary,col.names=TRUE)
copy(att.summary,col.names=TRUE)
copy(inv.summary,col.names=TRUE)
plot.multiple(qrr.plot[,1],qrr.plot[,c(2,3)],c("model","data"),file=NULL,main="chat",xlab="ransom",ylab="QRE prob")
source('C:/work/security analysis/ransomware/ransomware experimental analysis/calc.model.R')
qrr.plot<-plot.smooth(qrr,n=5)
plot.multiple(qrr.plot[,1],qrr.plot[,c(2,3)],c("model","data"),file=NULL,main=treat,xlab="ransom",ylab="QRE prob")
copy(pp.summary,col.names=TRUE)
copy(att.summary,col.names=TRUE)
copy(inv.summary,col.names=TRUE)
u.m1
u.m2
dim(data)
data[1:5,]
ans<-glm(i_1~old_i_1+old_i_2,data,family="binomial")
summary(ans)
ans<-glm(i_2~old_i_1+old_i_2,data,family="binomial")
summary(ans)
data[1:20,"old_i1"]
result.summary
copy(result.summary,col.names=TRUE)
data<-read.file.index(3)
expt.file.name()
a<-subset(data,data[,"Treatment"]=="Chat")
dim(a)
a[1,]
ii1<-0.5*(a[,"old_i_1"]+a[,"old_i_2"])
ii2<-0.5*(a[,"old_t2_i_1"]+a[,"old_t2_i_2"])
ii1
ii2
ii1<-ifelse(is.na(ii1),0.5,ii1)
ii2<-ifelse(is.na(ii2),0.5,ii2)
ii1
ii2
b<-(ii1+ii2)/2
b
plot(b)
ii1
plot(ii1)
glm(a[,"i_1"]~ii1,family=binomial)
summary(glm(a[,"i_1"]~ii1,family=binomial))
summary(glm(a[,"i_1"]~ii2,family=binomial))
summary(glm(a[,"i_1"]~I(ii1+ii2),family=binomial))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
ff.model.list
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
model.summaru
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm focus/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
summary(ans4)
summary(ans6)
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/analy.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
data[,"chat_pay"]
data.base[,"chat_invest"]
data.base[,"chat_pay"]
sum(data.base[,"chat_pay"])
a<-data.base[,c("chat_pay","p_1","p_2")]
a
pp<-ifelse(is.na(a[,2]),a[,3],a[,2])
pp
a<-cbind(a[,1],pp)
a
a<-subset(a,!is.na(a[,2]))
a
dim(a)
T(a)
t(a)
subset(a,a[,1]==1)
mean(a[,1])
mean(data.base[,"chat_pay"])
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm with text/calc.model.R')
model.summary
copy(model.summary,col.names=TRUE)
y.pay
ans6
summary(ans6)
y.pay[x.pay==0]
summary(y.pay[x.pay==0])
summary(y.pay[x.pay==1])
summary(ans6)
a1<-y.pay[x.pay==0]
a2<-y.pay[x.pay==1]
wilcox.test(a1,a2)
a1
a1<-na.omit(a1)
a2<-na.omit(a2)
a1
sum(a1)
length(a1)
sum(a2)
length(a2)
expt.file.name()
get.variable.names(1)
a<-get.data(1,"Treatment")
levels(as.factor(a))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans)
ans<-lm(invest~Period+Treatment+I(as.factor(Group.ID)),data)
summary(ans)
mean(invest[data[,"Treatment"]=="Base",])
mean(invest[data[,"Treatment"]=="Base"])
mean(invest[data[,"Treatment"]=="Should_invest"])
ans<-lm(invest~Period+Treatment,data)
summary(ans)
summary(ans2)
ans2<-lmer(invest~Treatment+(1|Group.ID),data)
summary(ans2)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summmary(ans2)
summary(ans2)
plot(data[,"Period"],data[,"invest"])
summary(data[,"Period"])
summary(data[1:15,"invest"])
summary(subset(data[,"invest"],data[,"Period"]<=15))
summary(subset(data[,"invest"],data[,"Period"]>15))
summmary(lm(invest~Period,data))
summary(lm(invest~Period,data))
summary(lm(invest~Period*Treatment,data))
summary(lmer(invest~Period*Treatment+(1|GroupID),data))
summary(lmer(invest~Period*Treatment+(1|Group.ID),data))
ans<-lm(invest~Period*Treatment+I(as.factor(Group.ID)),data)
summary(ans)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans2)
summary(ans3)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans3)
summary(ans2)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans3)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans3)
summary(ans2)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
acc
qr1.new
pi.m
u.tbl
gamma
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
u.loss
inv.cost
pp
par.behavior
par.setting
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
par.setting
chat.invest
chat.payment
data[1,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
result.summary
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
data[1,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
ans4
summary(ans4)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans3)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
data<-read.file.index(1)
levels(as.factor(data[,"Treatment"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
help("glmer")
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans4)
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
data[1:5,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
data[1,]
levels(as.factor(data[,"Treatment"]))
data<-read.file.index(1)
levels(as.factor(data[,"Treatment"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
2346/60
copy(result.summary,col.names=TRUE)
data[,"treat"]
levels(as.factor(data[,"Treatment"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summmary
model.summary
i1<-data.base[,"i_1"]
i2<-data.base[,"i_2"]
mean(i1)
mean(i2)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
save.image()
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summmary
model.summary
330*0.123
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
ms[[1]]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
model.summary
copy(result.summary,col.names=TRUE)
data[1,]
data[2,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/analy.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
data[1:10,]
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
data[1:10,]
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.regression.R')
pay
summary(ans5)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
gamma1
gamma2
qr1.new
pi1
pi2
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
u.m1
par.setting
final.par
index
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/analy.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
data[,"Data1"]
sum(is.na(data[,"Data1"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
e0
par.behavior
par.setting
data.base
data.base
treat
dim(data)
levels(as.factor(data[,"Treatmenet"]))
levels(as.factor(data[,"Treatment"]))
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
source('C:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910/calc.model.R')
copy(result.summary,col.names=TRUE)
copy(result.summary,col.names=TRUE)
model.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
u.loss
u.noloss
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
qr1
u.tbl
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
warnings()
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
li1
pi1
pi2
qr1
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
u.loss
u.noloss
par.r
u.risk(e0-rr-inv*inv.cost-penalty,par.r)
u.risk(-inv*inv.cost,par.r)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
u.loss
u.noloss
par.r
gamma.i
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 risk aversion/calc.model.R')
model.summary
copy(result.summary,col.names=TRUE)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 base comparison/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 base comparison/calc.model.R')
result.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 base comparison/calc.model.R')
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 base comparison/calc.model.R')
dim(data.sub)
dim(data.base)
summary(data.base[,"i_1"])
summary(data.base[,"i_2"])
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 base comparison/calc.model.R')
a<-subset(data.base[,"Treatment"]=="Should_invest")
a<-subset(data.base,data.base[,"Treatment"]=="Should_invest")
dim(as)
dim(a)
summary(a[,"i_1"])
summary(a[,"i_2"])
a<-subset(data.base,data.base[,"Treatment"]=="Base")
summary(a[,"i_1"])
summary(a[,"i_2"])
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 base comparison/calc.model.R')
result.summary
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 base comparison/calc.model.R')
copy(result.summary,col.names=TRUE)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 1910 base comparison/calc.model.R')
copy(result.summary,col.names=TRUE)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 base comparison lag fair final candidate/calc.model.R')
copy(result.summary,col.names=TRUE)
source('D:/work/security analysis/ransomware/ransomware experimental analysis social norm new expt for revision 2001 base comparison lag fair final candidate/calc.model.R')
result.summary
copy(result.summary,col.names=TRUE)
treat.list
save.image()
model.summary
cn
model.index
